home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / GETINT.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  843 b   |  24 lines
  1.       SUBROUTINE GETINT(STRING,ICC1,ICC2,KFCH,KLCH,NN)  
  2. *-----------------------------------------------------------------------
  3. *   
  4. * routine to extract one positive integer from a BCD string.
  5. * input 
  6. * STRING   input string 
  7. * ICC1     starting pos. for scan   
  8. * ICC2     end      -    -    - 
  9. * output
  10. * KFCH     pos. of first character of integer in STRING,
  11. *          or 0 if no integer found.
  12. * KLCH     pos. of last ch. in STRING.  
  13. * NN       integer in integer format. (set to zero when none found) 
  14. *   
  15. *-----------------------------------------------------------------------
  16.       CHARACTER*(*) STRING  
  17.       NN=0  
  18.       CALL CHRTYP(1,STRING,ICC1,ICC2,.FALSE.,KFCH,ILEV) 
  19.       IF(KFCH.NE.0)  THEN   
  20.          CALL SKIPTP(1,STRING,KFCH,ICC2,.FALSE.,KLCH,ILEV)  
  21.          NN=NEXTIN(STRING,KFCH,KLCH)
  22.       ENDIF 
  23.       END   
  24.